home *** CD-ROM | disk | FTP | other *** search
- /************************************************************************/
- /* */
- /* spoold.c */
- /* */
- /* Durch bloßes Ändern der Extension im Dateinamen, läßt sich Pro- */
- /* gramm als normale GEM-Anwendung oder aber als Accessory betrei- */
- /* ben. */
- /* Das Programm zeigt in einem Fenster die aktuellen Neuigkeiten an. */
- /* */
- /* Copyright (c) FORTEC/pm 1989 */
- /* */
- /************************************************************************/
-
- /* -------------------------------------------------------------------- */
- /* Headerdateien einbinden. */
- /* -------------------------------------------------------------------- */
-
- #include <aes.h>
- #include <stdio.h>
- #include <tos.h>
- #include <vdi.h>
- #include <string.h>
- #include <stdlib.h>
- #include <ctype.h>
- #include <time.h>
- #include "tcpdef.h"
-
- extern long oldgem;
- extern long grpgem;
- extern long oldt5;
- extern long grptrp;
- extern long * tab;
- extern int tabstart[], tabend;
- int fi = 0;
-
- /* -------------------------------------------------------------------- */
- /* main() */
- /* */
- /* Kernstück des Programms. */
- /* -------------------------------------------------------------------- */
-
- int main( void )
- {
- printf("buffer at %lx\n",tabstart);
- oldgem = (long)Setexc(33, (void (*)())&grpgem);
- oldt5 = (long)Setexc(37, (void (*)())&grptrp);
- Ptermres(_PgmSize,0);
- }
-
- /* -------------------------------------------------------------------- */
- /* End of SPOOLD.C */
- /* -------------------------------------------------------------------- */
-
- void show(void)
- {
- int F;
- int i;
- char text[100];
-
- sprintf(text,"C:\\tmp\\dumpfile.%d",fi++);
- F = Fcreate(text,0);
- for(i=0;i < 500;i++)
- {
- sprintf(text,"%4x%04x %4x %4x%04x %04x %04x %4x%04x\r\n",tabstart[9*i],tabstart[(9*i)+1],tabstart[(9*i)+2],tabstart[(9*i)+3],tabstart[(9*i)+4],tabstart[(9*i)+5],tabstart[(9*i)+6],tabstart[(9*i)+7],tabstart[(9*i)+8]);
- Fwrite(F,strlen(text),text);
- }
- Fclose(F);
- }
-